home *** CD-ROM | disk | FTP | other *** search
/ Quick PC 62 / Quick PC 62.iso / I386 / IIS5_01.CAB / IIS_iiapphd.asp < prev    next >
Encoding:
Text File  |  1999-06-03  |  2.0 KB  |  74 lines
  1. <%@ LANGUAGE = VBScript %>
  2. <% Option Explicit %>
  3. <!-- #include file="directives.inc" -->
  4.  
  5. <% if Session("FONTSIZE") = "" then %>
  6.     <!--#include file="iito.inc"-->
  7. <% else %>
  8.     <!--#include file="iiapphd.str"-->
  9. <%
  10.  
  11. On Error Resume Next 
  12.  
  13. Const IISAO_APPROT_ISOLATE = 1
  14. Dim path, currentobj, bShowProcessOptions
  15.  
  16. path=Session("dpath")
  17. Session("path")=path
  18. Set currentobj=GetObject(path)
  19.  
  20. if Session("vtype") = "svc" Or IISAO_APPROT_ISOLATE = currentobj.AppIsolated then
  21.     bShowProcessOptions = True
  22. else
  23.     bShowProcessOptions = False
  24. end if
  25.  
  26. %>
  27. <!--#include file="iisetfnt.inc"-->
  28. <HTML>
  29. <HEAD>
  30.  
  31. <SCRIPT LANGUAGE="JavaScript">
  32.     function loadHelp(pagename){
  33.         if (pagename == null){
  34.             top.title.Global.helpFileName="iipy_32";
  35.         }
  36.         if (pagename == "ASP"){
  37.             top.title.Global.helpFileName="iipy_32";
  38.         }
  39.         if (pagename == "DBG"){
  40.             top.title.Global.helpFileName="iipy_33";
  41.         }
  42.         if (pagename == "OTHER"){
  43.             top.title.Global.helpFileName="iipy_35";
  44.         }                
  45.         
  46.     }
  47.  
  48.     function loadPage(pagename)
  49.         {
  50.             parent.head.location.href = "iiappmn.asp#"+pagename;
  51.  
  52.             loadHelp(pagename);
  53.         }
  54. </SCRIPT>
  55.  
  56. </HEAD>
  57.  
  58. <BODY TOPMARGIN=0 LEFTMARGIN=0 BACKGROUND="images/greycube.gif" LINK="#FFFFFF" VLINK="#FFFFFF" ALINK="FFFFFF" onLoad="loadHelp('ASP');">
  59. <TABLE BORDER = 0 WIDTH = 100% CELLSPACING=0 CELLPADDING=5>
  60.     <TR>
  61.         <TD ALIGN=center VALIGN=center><%= sFont("","","",True) %><A HREF="javascript:loadPage('ASP');"><B><%= L_ASP_TEXT %></B></A></FONT></TD>
  62.         <TD ALIGN=center VALIGN=center><%= sFont("","","#FFFFFF",True) %>|</FONT></TD>
  63.         <TD ALIGN=center VALIGN=center><%= sFont("","","",True) %><A HREF="javascript:loadPage('DBG');"><B><%= L_DBG_TEXT %></B></A></FONT></TD>
  64.         
  65.     <% if bShowProcessOptions then %>
  66.         <TD ALIGN=center VALIGN=center><%= sFont("","","#FFFFFF",True) %>|</FONT></TD>            
  67.         <TD ALIGN=center VALIGN=center><%= sFont("","","",True) %><A HREF="javascript:loadPage('OTHER');"><B><%= L_OTHER_TEXT %></B></A></FONT></TD>            
  68.     <% end if %>
  69.         <TD></TD>                        
  70.     </TR>
  71. </TABLE>
  72. </BODY>
  73. </HTML>
  74. <% end if %>